#unbinds all extra info except for data label
unbindData <-function(data, toRemove, toKeep=c()){
	set<-data[,-which(names(data) %in% toRemove[-which(toRemove %in% toKeep)])];
	set;
}
